(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     80831,       2057]
NotebookOptionsPosition[     66497,       1748]
NotebookOutlinePosition[     67169,       1774]
CellTagsIndexPosition[     67089,       1769]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["0.7", "HistoryData",
  CellTags->"New",ExpressionUUID->"18cf9aa3-8287-4b0d-80c7-2058e6396f0a"],
 " | Modified in: ",
 Cell[" 2.0.0", "HistoryData",
  CellTags->"Modified",ExpressionUUID->"fd92c2a4-7378-47b6-aef2-8f916a9a983b"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete",ExpressionUUID->"455de231-3818-408b-ab0a-548150aba68b"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised",ExpressionUUID->"1812a4f3-18d1-4376-9ea4-12d29d33935b"]
}], "History",
 CellChangeTimes->{{3.763796804246318*^9, 3.7637968044489937`*^9}, {
  3.78160003862634*^9, 3.781600038962124*^9}, {3.781626293833593*^9, 
  3.7816262945739613`*^9}},
 CellID->1247902091,ExpressionUUID->"581e16ed-fdd5-49b1-a042-e9d2818b5abe"],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449,ExpressionUUID->"b2facc1d-3882-42b9-bb0a-0f0e51b78901"],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507,ExpressionUUID->"d2d5aae3-d76b-4d94-92af-26ef38906776"],

Cell["MaXrd", "Categorization",
 CellChangeTimes->{3.7438367119107037`*^9},
 CellLabel->"Paclet Name",
 CellID->605800465,ExpressionUUID->"d8a9337d-492c-47e1-b11a-5fa0e2ae96ed"],

Cell["MaXrd`", "Categorization",
 CellChangeTimes->{3.743836712220343*^9},
 CellLabel->"Context",
 CellID->468444828,ExpressionUUID->"80366995-8d0d-4c13-b261-89cff3cba6f3"],

Cell["MaXrd/ref/GetCrystalMetric", "Categorization",
 CellChangeTimes->{3.743836712471706*^9},
 CellLabel->"URI",ExpressionUUID->"c165ec6b-772e-47a1-864b-d0130e4fc972"]
}, Closed]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294,ExpressionUUID->"35dd449f-2b57-4593-be9b-9d42c48f44d2"],

Cell["XXXX", "Keywords",
 CellID->1164421360,ExpressionUUID->"a4b71b93-e23b-4d39-a047-1f5f0ef67173"]
}, Closed]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408,ExpressionUUID->"472a8275-d94b-46f0-8c35-eaf770b96171"],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412,ExpressionUUID->"a35b26ac-8bc6-460f-8a2d-a5ef8878ab4e"],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909,ExpressionUUID->"29e0c1da-e900-448b-8dc3-cdeccc955a35"],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930,ExpressionUUID->"b8cb10dc-bd40-4220-806d-d7c13b7ec910"],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254,ExpressionUUID->"aa9eb5a2-6533-498b-8e8f-64333af406bb"]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771,ExpressionUUID->"76e50715-6947-417b-a69d-beb595e39b2b"],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->670882175,ExpressionUUID->"d8b11316-bb36-4a46-b606-55183aade8f2"],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985,ExpressionUUID->"4f780d00-5b84-4543-b296-b382988f4cda"],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->8391405,ExpressionUUID->"dd892358-bc39-4838-b9f3-b4dbc8c63755"],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269,ExpressionUUID->"565d6dbe-8dcf-4931-bf44-64e22dae6ef4"],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205,ExpressionUUID->"baf57289-ede4-494e-8144-dea16428b947"],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745,ExpressionUUID->"d4ed1ed8-0426-4260-8fce-8e9f05663dd3"],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810,ExpressionUUID->"b70fbad6-a7ba-4c0d-a6d3-9ee96124365a"],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350,ExpressionUUID->"3469def8-148c-4104-be1d-946fab3e34c0"],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365,ExpressionUUID->"0646c7dc-e3bf-40c4-a23a-c50590439b2a"]
}, Closed]],

Cell[CellGroupData[{

Cell["GetCrystalMetric", "ObjectName",
 CellID->1224892054,ExpressionUUID->"b85341c8-3faa-4067-bf85-66647f59dfea"],

Cell[TextData[{
 Cell["   ", "ModInfo",ExpressionUUID->"5048ec6e-a39a-4c67-88aa-8f54b29a1ce5"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["GetCrystalMetric",
    BaseStyle->"Link",
    ButtonData->"paclet:MaXrd/ref/GetCrystalMetric"], "[", 
   RowBox[{"{", 
    RowBox[{
     StyleBox["a", "TI"], ",", 
     StyleBox["b", "TI"], ",", 
     StyleBox["c", "TI"], ",", 
     StyleBox["\[Alpha]", "TR"], ",", 
     StyleBox["\[Beta]", "TR"], ",", 
     StyleBox["\[Gamma]", "TR"]}], "}"}], "]"}]], "InlineFormula",
  ExpressionUUID->"cfd31922-703b-45a4-b950-7eb56071b4c0"],
 " \[LineSeparator]returns the metric for the given lattice parameters ",
 Cell[BoxData[
  RowBox[{
   StyleBox["a", "TI"], ",", 
   StyleBox["b", "TI"], ",", 
   StyleBox["c", "TI"], ",", 
   StyleBox["\[Alpha]", "TR"], ",", 
   StyleBox["\[Beta]", "TR"], ",", 
   StyleBox["\[Gamma]", "TR"]}]], "InlineFormula",ExpressionUUID->
  "deb8067c-5c29-4462-9b6c-a74f1334b77c"],
 ".\n",
 Cell["      ", "ModInfo",ExpressionUUID->
  "ebad9f7c-cd4c-4752-af65-a1769c17e30d"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["GetCrystalMetric",
    BaseStyle->"Link",
    ButtonData->"paclet:MaXrd/ref/GetCrystalMetric"], "[", 
   StyleBox["crystal", "TI"], "]"}]], "InlineFormula",ExpressionUUID->
  "f0ed8b2b-4c90-4a63-857a-8b714b541db7"],
 "\[LineSeparator]returns the metric for ",
 Cell[BoxData[
  StyleBox["crystal", "TI"]], "InlineFormula",ExpressionUUID->
  "de3da92f-666c-426e-b69b-f585e309971f"],
 "."
}], "Usage",
 CellChangeTimes->{{3.684217151909609*^9, 3.6842171709604607`*^9}, {
  3.684490702431446*^9, 3.6844907214963083`*^9}, {3.686656490874631*^9, 
  3.686656602245049*^9}, {3.737968473269723*^9, 3.737968473323909*^9}},
 CellID->982511436,ExpressionUUID->"916e5d38-46b9-4c7f-9c4b-e48ddd029bf7"],

Cell["\<\
The metric matrix contains all the information of the lattice.\
\>", "Notes",
 CellChangeTimes->{{3.740988022036148*^9, 3.740988051632648*^9}},
 CellID->555452832,ExpressionUUID->"d9406942-7d3e-405a-a135-b89914ccf098"],

Cell["\<\
Lattice parameters given directly may be numeric or quantities.\
\>", "Notes",
 CellChangeTimes->{{3.6866566494253387`*^9, 3.686656698103711*^9}},
 CellID->1465477490,ExpressionUUID->"091c35c0-319f-4c02-8242-bd228efdd74c"],

Cell[TextData[{
 Cell[BoxData[
  StyleBox["crystal", "TI"]], "InlineFormula",ExpressionUUID->
  "62937092-4d9e-43b8-8fff-f8a491580d85"],
 " must exist in ",
 Cell[BoxData[
  ButtonBox["$CrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$CrystalData"]], "InlineFormula",
  ExpressionUUID->"61c56bd3-f32a-4063-a67f-726db1dd2b8c"],
 "."
}], "Notes",
 CellChangeTimes->{{3.686656616012493*^9, 3.686656642525207*^9}},
 CellID->1067943069,ExpressionUUID->"aa9bf270-a1b6-4c50-b08f-b9c0107f29af"],

Cell[TextData[{
 "If ",
 StyleBox["any",
  FontSlant->"Italic"],
 " of the interaxial angles (",
 Cell[BoxData[
  RowBox[{
   StyleBox["\[Alpha]", "TR"], ",", 
   StyleBox["\[Beta]", "TR"], ",", 
   StyleBox["\[Gamma]", "TR"]}]], "InlineFormula",ExpressionUUID->
  "9e49af33-87e5-4fd4-9c44-891276b22352"],
 ") have a numeric value greater than ",
 Cell[BoxData[
  FormBox[
   RowBox[{"2", " ", "\[Pi]"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"59110c68-56b8-4116-981f-b978ce490d1f"],
 ", the angles are assumed to be given in degrees."
}], "Notes",
 CellChangeTimes->{{3.686656754183071*^9, 3.686656810505773*^9}},
 CellID->515085711,ExpressionUUID->"adc0e48c-fc74-4e43-8292-f5024d047169"],

Cell["Available option:", "Notes",
 CellChangeTimes->{{3.7595205352083883`*^9, 3.759520541032579*^9}},
 CellID->2040535678,ExpressionUUID->"65b567de-d74b-4ef9-9f55-a0e15983e3d9"],

Cell[BoxData[GridBox[{
   {Cell["      ", "ModInfo",ExpressionUUID->
     "98cce508-b907-41c4-8913-4246c183de4c"], "\"\<Space\>\"", 
    "\"\<Direct\>\"", Cell[TextData[{
     "return values for ",
     StyleBox["\"Direct\"", "InlineCode"],
     " or ",
     StyleBox["\"Reciprocal\"", "InlineCode"],
     " space"
    }], "TableText",ExpressionUUID->"3b2f500f-6c04-4ced-8348-53bb3a78ef65"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "96613e88-3055-4d26-9e14-acd2bee3837e"], "\"\<ToCartesian\>\"", 
    ButtonBox["False",
     BaseStyle->"Link"], Cell["\<\
whether to return the transformation matrix to a Cartesian base\
\>", "TableText",ExpressionUUID->"003b3b74-d2f8-4e72-ab41-339d77790866"]}
  }]], "3ColumnTableMod",
 TaggingRules->{"Alphabetized" -> True},
 CellChangeTimes->{{3.75952060942108*^9, 3.7595206113201513`*^9}, {
  3.7620995047966747`*^9, 3.762099516874813*^9}, {3.7620996224590263`*^9, 
  3.762099622459077*^9}, {3.781600058620225*^9, 3.781600062196252*^9}},
 CellID->1673214818,ExpressionUUID->"59db4543-9de8-4b16-a775-5df046162d88"],

Cell[TextData[{
 "The output resulting from ",
 Cell[BoxData[
  RowBox[{"\"\<ToCartesian\>\"", "\[Rule]", "True"}]], "InlineFormula",
  ExpressionUUID->"c8153f07-16d3-4621-bd07-6171d8d7cf45"],
 " are the corresponding Cartesian basis vectors of the unit cell, as column \
vectors ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    RowBox[{
     SubscriptBox[
      StyleBox["e",
       FontWeight->"Bold",
       FontSlant->"Plain"], "1"], "\[ThickSpace]", 
     SubscriptBox[
      StyleBox["e",
       FontWeight->"Bold",
       FontSlant->"Plain"], "2"], "\[ThickSpace]", 
     SubscriptBox[
      StyleBox["e",
       FontWeight->"Bold",
       FontSlant->"Plain"], "3"]}], ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"3fcb9ea1-5775-4533-8117-a11a34d93743"],
 "."
}], "Notes",
 CellChangeTimes->{{3.7595214578940573`*^9, 3.759521758470298*^9}},
 CellID->972487349,ExpressionUUID->"10132ac7-b1d2-4059-8d94-176b4fcf1324"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057,ExpressionUUID->"17f50fd4-f601-45d8-83d8-70d8e268d99b"],

Cell["XXXX", "Tutorials",
 CellID->341631938,ExpressionUUID->"d036c046-5fb0-43fe-8912-2d9a2b767c9e"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905,ExpressionUUID->"2036dd12-4ce5-4e67-9607-9a4c5d679f8a"],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860,ExpressionUUID->"152cb64f-881d-4e17-9780-e9cc13ad6397"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535,ExpressionUUID->"b678299b-1c7f-4518-b174-1c2d9ecc8d91"],

Cell["XXXX", "RelatedLinks",
 CellID->1038487239,ExpressionUUID->"90fd8073-cd79-43d7-82b7-893cae961735"]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704,ExpressionUUID->"f85569a5-1643-483a-9032-9a2db8916b2f"],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["$CrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$CrystalData"]], "InlineFormula",
  ExpressionUUID->"5459ed5d-b686-497a-9ab3-e8de4cea528a"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["CrystalDensity",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/CrystalDensity"]], "InlineFormula",
  ExpressionUUID->"a7802fb5-1ebe-4bf5-ae51-e10b4dd92a26"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["AttenuationCoefficient",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/AttenuationCoefficient"]], "InlineFormula",
  ExpressionUUID->"441e0e05-a857-474b-a7f2-084fc70ec10f"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["ReflectionList",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/ReflectionList"]], "InlineFormula",
  ExpressionUUID->"7abeaf55-3a21-4dc9-9721-417464b453b4"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["StructureFactor",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/StructureFactor"]], "InlineFormula",
  ExpressionUUID->"fd1a41b9-c818-4990-baa3-e158e4f254ee"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["StructureFactorTable",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/StructureFactorTable"]], "InlineFormula",
  ExpressionUUID->"69852f72-1dfd-4473-98b4-44fa6db3d8ac"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["EmbedStructure",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/EmbedStructure"]], "InlineFormula",
  ExpressionUUID->"f61e1a6f-3a8e-4b1d-97d6-c16b88cb9e62"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["DistortStructure",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/DistortStructure"]], "InlineFormula",
  ExpressionUUID->"b17ff56e-1675-433a-b4a5-d6e6e5070e30"]
}], "SeeAlso",
 CellChangeTimes->{{3.6844907627986107`*^9, 3.684490812474428*^9}, {
  3.7190638177930098`*^9, 3.719063825276039*^9}, {3.728624117365611*^9, 
  3.7286241312837048`*^9}, {3.769496303348527*^9, 3.7694963234970303`*^9}},
 CellID->929782353,ExpressionUUID->"88980665-2bf4-4443-bba3-6dd457dde2fe"]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248,ExpressionUUID->"52df7160-9a62-41ff-8c7a-e991ffcbb5fc"],

Cell["XXXX", "MoreAbout",
 CellID->1665078683,ExpressionUUID->"f066435d-d87e-4936-9678-ba023eff8eec"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151,ExpressionUUID->"c02569c6-4e9d-4724-a33d-5897d2a15130"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetCrystalMetric", "[", 
  RowBox[{"{", 
   RowBox[{
   "15.98", ",", "15.98", ",", "5.582", ",", "90", ",", "90", ",", "120"}], 
   "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.686656736641816*^9, 3.686656738033821*^9}, {
   3.6866568291591473`*^9, 3.686656887809704*^9}, 3.737968473407825*^9},
 CellLabel->"In[1]:=",
 CellID->1170448450,ExpressionUUID->"d10338d5-5102-4e3d-ac6e-6f943daa02ec"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"255.36040000000003`", ",", 
     RowBox[{"-", "127.68019999999996`"}], ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "127.68019999999996`"}], ",", "255.36040000000003`", ",", 
     "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.`", ",", "0.`", ",", "31.158724`"}], "}"}]}], "}"}]], "Output",\

 CellChangeTimes->{{3.686656838692288*^9, 3.68665689474431*^9}, 
   3.728624145426174*^9, 3.728624296926546*^9, 3.781599756347796*^9},
 CellLabel->"Out[1]=",
 CellID->1965003377,ExpressionUUID->"d6ffd951-b00c-473b-a0fc-c8f65afe7029"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "b918ab4b-bd79-4e03-8fd9-d87e7a5e086b"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->885551958,ExpressionUUID->"d7a7e2ea-8d33-4cc8-bbcd-5b7d2025c7d2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetCrystalMetric", "[", "\"\<Silicon\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.682327675265698*^9, 3.6823276793088512`*^9}, 
   3.737968473494849*^9},
 CellLabel->"In[1]:=",
 CellID->1244326032,ExpressionUUID->"b10b6ad5-aee5-4070-989d-5b828cb4e546"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"29.494457574400002`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.`", ",", "29.494457574400002`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.`", ",", "0.`", ",", "29.494457574400002`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.684490735222934*^9, 3.686656715509603*^9, 3.7286241469787683`*^9, 
   3.728624298309407*^9, {3.781599759118105*^9, 3.781599762868848*^9}},
 CellLabel->"Out[1]=",
 CellID->392171730,ExpressionUUID->"0d4832f9-674c-4823-9db6-85921b32cdc0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetCrystalMetric", "[", "\"\<OxalicAcid\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.68232768102079*^9, 3.682327702808371*^9}, {
   3.683969880685719*^9, 3.683969884025468*^9}, {3.683969920587302*^9, 
   3.6839699237036953`*^9}, 3.737968473583809*^9},
 CellLabel->"In[2]:=",
 CellID->870930863,ExpressionUUID->"6fb934e2-829f-4481-bc58-8340d98a9794"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"37.45929616`", ",", "0.`", ",", 
     RowBox[{"-", "20.72825482713223`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.`", ",", "13.01838561`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "20.72825482713223`"}], ",", "0.`", ",", "145.43395216`"}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.6844907406074867`*^9, 3.686656716008686*^9, 
  3.728624147461321*^9, 3.728624299144435*^9, 3.781599763809596*^9},
 CellLabel->"Out[2]=",
 CellID->864219528,ExpressionUUID->"223b70cc-d37f-4d82-9bed-a5d31825b00c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "63f3ac87-d29d-45ba-a19f-0d17305aa572"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->1247857534,ExpressionUUID->"1c5e5dcc-41b9-440e-a43d-e12170407735"],

Cell[TextData[{
 "The volume of the unit cell can be easily calculated (unit: ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[CapitalARing]", "3"], TraditionalForm]], "InlineMath",
  ExpressionUUID->"3c4e8c4e-091a-4ec0-837f-8972f0036998"],
 "):"
}], "ExampleText",
 CellChangeTimes->{{3.686286007313921*^9, 3.686286024186077*^9}, {
  3.6862862728264523`*^9, 3.686286307198584*^9}, {3.714363320654997*^9, 
  3.714363324105673*^9}},
 CellID->416277336,ExpressionUUID->"c4fa0961-51f9-46ac-9f69-02aedf421386"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sqrt", "@", 
  RowBox[{"Det", "@", 
   RowBox[{"GetCrystalMetric", "[", "\"\<Silicon\>\"", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.686286028553761*^9, 3.686286034282023*^9}, 
   3.73796847367834*^9},
 CellLabel->"In[1]:=",
 CellID->150901970,ExpressionUUID->"b6bcca41-76a9-41ec-a267-16cfa38597de"],

Cell[BoxData["160.1808597516575`"], "Output",
 CellChangeTimes->{{3.686286036367895*^9, 3.686286040072742*^9}, 
   3.686656722739265*^9, 3.7286241481537743`*^9, 3.728624301684395*^9, 
   3.7815997679813147`*^9},
 CellLabel->"Out[1]=",
 CellID->1416751428,ExpressionUUID->"2505b831-9d38-4143-aa0f-de4d1ece17c0"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "213f68d4-d974-4bdd-a77a-2b42b5bec349"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->744659813,ExpressionUUID->"d6d6f23d-bfc3-49ae-9d6c-04579ecd8eef"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"parameters", "=", 
  RowBox[{"$CrystalData", "[", 
   RowBox[{"\"\<Quartz\>\"", ",", "\"\<LatticeParameters\>\""}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.781599778836879*^9, 3.781599792072688*^9}},
 CellLabel->"In[1]:=",
 CellID->848912672,ExpressionUUID->"663c0a2f-5f12-4fa7-a267-32ad07876037"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"a\"\>", "\[Rule]", 
    TemplateBox[{
     "4.914`","\"\[CapitalARing]\"","\[ARing]ngstr\[ODoubleDot]ms",
      "\"Angstroms\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"b\"\>", "\[Rule]", 
    TemplateBox[{
     "4.914`","\"\[CapitalARing]\"","\[ARing]ngstr\[ODoubleDot]ms",
      "\"Angstroms\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"c\"\>", "\[Rule]", 
    TemplateBox[{
     "5.406`","\"\[CapitalARing]\"","\[ARing]ngstr\[ODoubleDot]ms",
      "\"Angstroms\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"\[Alpha]\"\>", "\[Rule]", 
    TemplateBox[{
     "90",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],"degrees",
      "\"AngularDegrees\""},
     "QuantityPostfix"]}], ",", 
   RowBox[{"\<\"\[Beta]\"\>", "\[Rule]", 
    TemplateBox[{
     "90",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],"degrees",
      "\"AngularDegrees\""},
     "QuantityPostfix"]}], ",", 
   RowBox[{"\<\"\[Gamma]\"\>", "\[Rule]", 
    TemplateBox[{
     "120",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],"degrees",
      "\"AngularDegrees\""},
     "QuantityPostfix"]}]}], "\[RightAssociation]"}]], "Output",
 CellChangeTimes->{3.781599792587729*^9, 3.781599860060657*^9},
 CellLabel->"Out[1]=",
 CellID->940803776,ExpressionUUID->"5ea4d804-91fa-4221-ab36-7b94c160048b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetCrystalMetric", "@", "parameters"}]], "Input",
 CellChangeTimes->{{3.781599794483576*^9, 3.781599797498517*^9}},
 CellLabel->"In[2]:=",
 CellID->980092628,ExpressionUUID->"25ed3010-82ce-4fb2-b7d0-e086ac7ad874"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"24.147395999999997`", ",", 
     RowBox[{"-", "12.073697999999993`"}], ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "12.073697999999993`"}], ",", "24.147395999999997`", ",", 
     "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.`", ",", "0.`", ",", "29.224835999999996`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.781599798546598*^9, 3.781599860872739*^9},
 CellLabel->"Out[2]=",
 CellID->615863668,ExpressionUUID->"db1de0e4-f83f-46b8-8342-9cd53bd0f37b"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968,ExpressionUUID->"3a831691-ed61-435a-b923-ff17d176bcb1"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Scope", "ExampleSection",ExpressionUUID->
   "180ad4b9-d1d8-4505-a80d-5635ff02c8a3"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265,ExpressionUUID->"93292870-62bf-4838-ac37-d0f5e16b116b"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Generalizations & Extensions", "ExampleSection",ExpressionUUID->
   "012c58c3-6cba-4080-8f90-ce794644080c"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627,ExpressionUUID->"9bc83fa9-74b2-44e8-9d20-ca01cecc80f6"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Options", "ExampleSection",ExpressionUUID->
   "80f91b28-d9a0-4b87-8555-589498bfe7d9"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341,ExpressionUUID->"228dbd5b-5c00-4b98-a995-f96db5a7abd0"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"ToCartesian\"", "ExampleSubsection",ExpressionUUID->
   "3308891d-f7b5-4a0d-973f-e3acd5a31461"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.759520651441224*^9, 3.75952065369592*^9}},
 CellID->1757724783,ExpressionUUID->"4551705f-04ad-4dea-a5ba-e552e0f6dfab"],

Cell[TextData[{
 "We can use the following matrix ",
 Cell[BoxData[
  FormBox["M", TraditionalForm]], "InlineMath",ExpressionUUID->
  "a2ba4883-73ec-4469-9b69-d8db301986d1"],
 " to convert from any crystallographic basis to a Cartesian one:"
}], "ExampleText",
 CellChangeTimes->{{3.759521187229842*^9, 3.7595212179222717`*^9}},
 CellID->1212218397,ExpressionUUID->"a35f794a-8ecc-41cb-8c7d-eb6481c86e22"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"M", "=", 
  RowBox[{
  "$TransformationMatrices", "[", "\"\<CrystallographicToCartesian\>\"", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.7595207307457333`*^9, 3.7595207450269623`*^9}},
 CellLabel->"In[1]:=",
 CellID->225622215,ExpressionUUID->"07fcea30-3143-480d-ace0-3d0e665aaba7"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"a", ",", 
     RowBox[{"b", " ", 
      RowBox[{"Cos", "[", "\[Gamma]", "]"}]}], ",", 
     RowBox[{"c", " ", 
      RowBox[{"Cos", "[", "\[Beta]", "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"b", " ", 
      RowBox[{"Sin", "[", "\[Gamma]", "]"}]}], ",", 
     RowBox[{"c", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Cos", "[", "\[Alpha]", "]"}], "-", 
        RowBox[{
         RowBox[{"Cos", "[", "\[Beta]", "]"}], " ", 
         RowBox[{"Cos", "[", "\[Gamma]", "]"}]}]}], ")"}], " ", 
      RowBox[{"Csc", "[", "\[Gamma]", "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", 
     RowBox[{"c", " ", 
      SqrtBox[
       RowBox[{"1", "-", 
        SuperscriptBox[
         RowBox[{"Cos", "[", "\[Beta]", "]"}], "2"], "-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Cos", "[", "\[Alpha]", "]"}], "-", 
            RowBox[{
             RowBox[{"Cos", "[", "\[Beta]", "]"}], " ", 
             RowBox[{"Cos", "[", "\[Gamma]", "]"}]}]}], ")"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{"Csc", "[", "\[Gamma]", "]"}], "2"]}]}]]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.759520741214362*^9, 3.759520745286605*^9}, 
   3.759520847236411*^9, 3.759520877551667*^9, 3.759521166508934*^9, 
   3.75952132104672*^9, 3.781599880947118*^9},
 CellLabel->"Out[1]=",
 CellID->1362177167,ExpressionUUID->"73fe327a-8b7e-4bf4-83d0-c72e30c7a159"]
}, Open  ]],

Cell["The lattice parameters are the only requirements:", "ExampleText",
 CellChangeTimes->{{3.759521224737857*^9, 3.759521241786001*^9}},
 CellID->49935553,ExpressionUUID->"03fef0d3-31aa-4734-a428-00bdb7662b24"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"abc\[Alpha]\[Beta]\[Gamma]", "=", 
  RowBox[{"GetLatticeParameters", "[", 
   RowBox[{"\"\<Quartz\>\"", ",", 
    RowBox[{"\"\<Units\>\"", "\[Rule]", "False"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.759520696269415*^9, 3.759520757682836*^9}},
 CellLabel->"In[2]:=",
 CellID->1420722785,ExpressionUUID->"00970cc8-2d84-41ef-af5a-d3246f392027"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "4.914`", ",", "4.914`", ",", "5.406`", ",", "90", ",", "90", ",", "120"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.759520702024673*^9, 3.759520723428722*^9}, 
   3.759520757955297*^9, 3.759520847085163*^9, 3.759520877368267*^9, 
   3.759521166374877*^9, 3.759521321197908*^9, 3.781599882842503*^9},
 CellLabel->"Out[2]=",
 CellID->338771092,ExpressionUUID->"46013d99-8b95-43bc-b7a6-2ff85d4a6fea"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"map", "=", 
  RowBox[{"Thread", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "a", ",", "b", ",", "c", ",", "\[Alpha]", ",", "\[Beta]", ",", 
      "\[Gamma]"}], "}"}], "\[Rule]", 
    RowBox[{"abc\[Alpha]\[Beta]\[Gamma]", "*", 
     RowBox[{"{", 
      RowBox[{
      "1", ",", "1", ",", "1", ",", "Degree", ",", "Degree", ",", "Degree"}], 
      "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7595207621513433`*^9, 3.7595207872101107`*^9}, 
   3.759521163216442*^9},
 CellLabel->"In[3]:=",
 CellID->75099975,ExpressionUUID->"ff76df44-1c0a-4959-8cc3-fddb479bf702"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"a", "\[Rule]", "4.914`"}], ",", 
   RowBox[{"b", "\[Rule]", "4.914`"}], ",", 
   RowBox[{"c", "\[Rule]", "5.406`"}], ",", 
   RowBox[{"\[Alpha]", "\[Rule]", 
    RowBox[{"90", " ", "\[Degree]"}]}], ",", 
   RowBox[{"\[Beta]", "\[Rule]", 
    RowBox[{"90", " ", "\[Degree]"}]}], ",", 
   RowBox[{"\[Gamma]", "\[Rule]", 
    RowBox[{"120", " ", "\[Degree]"}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.759520778549925*^9, 3.75952078763929*^9}, 
   3.7595208473868504`*^9, 3.759520877735674*^9, 3.759521166642193*^9, 
   3.759521321348016*^9, 3.7815998846735697`*^9},
 CellLabel->"Out[3]=",
 CellID->259895436,ExpressionUUID->"fb4b4c59-6825-41c5-91e0-5e67d7b43960"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"M", "/.", "map"}]], "Input",
 CellChangeTimes->{{3.759520807910368*^9, 3.7595208137693157`*^9}},
 CellLabel->"In[4]:=",
 CellID->2115465306,ExpressionUUID->"e947885d-6d62-4abe-86f3-5b64efe82f52"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"4.914`", ",", 
     RowBox[{"-", "2.457`"}], ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "4.255648834196731`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "5.406`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.759520814095832*^9, 3.759520847586355*^9, 
  3.7595208779323883`*^9, 3.759521166758752*^9, 3.759521321498703*^9, 
  3.781599886151226*^9},
 CellLabel->"Out[4]=",
 CellID->1408316850,ExpressionUUID->"d473237b-c194-4923-a7e6-991295ba1aab"]
}, Open  ]],

Cell[TextData[{
 "By setting this option to ",
 Cell[BoxData[
  ButtonBox["True",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/True"]], "InlineFormula",ExpressionUUID->
  "e5a42790-b0d2-402d-8db3-ef09d66aa669"],
 ", this is done automatically:"
}], "ExampleText",
 CellChangeTimes->{{3.7595212526332684`*^9, 3.759521274126154*^9}, {
  3.759521311257584*^9, 3.7595213592531157`*^9}},
 CellID->1212960014,ExpressionUUID->"6483dc9d-da59-4e4d-b6cb-6ef79b6fb509"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetCrystalMetric", "[", 
  RowBox[{"\"\<Quartz\>\"", ",", 
   RowBox[{"\"\<ToCartesian\>\"", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.759520660481587*^9, 3.759520686972509*^9}, {
  3.759520789900548*^9, 3.7595207924580803`*^9}},
 CellLabel->"In[5]:=",
 CellID->2009134404,ExpressionUUID->"7d4da496-af98-4b50-b070-94fe949c3475"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"4.914`", ",", 
     RowBox[{"-", "2.457`"}], ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.`", ",", "4.255648834196731`", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.`", ",", "0.`", ",", "5.406`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.7595206705716057`*^9, 3.759520687348572*^9}, {
   3.759520843421884*^9, 3.7595208477366457`*^9}, 3.759520878136697*^9, 
   3.7595211669093*^9, 3.759521321649385*^9, 3.781599887940365*^9},
 CellLabel->"Out[5]=",
 CellID->422934621,ExpressionUUID->"0cdcc098-6850-4588-8776-22a91cddfee0"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"Space\"", "ExampleSubsection",ExpressionUUID->
   "c84b4248-c08b-4533-b9d6-4a137d1bf2c5"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.762099630217373*^9, 3.7620996315597067`*^9}},
 CellID->409179315,ExpressionUUID->"594bd177-3c84-4b92-981d-845e98c8a1df"],

Cell[TextData[{
 "Setting this option to ",
 Cell[BoxData[
 "\"\<Reciprocal\>\""], "InlineFormula",ExpressionUUID->
  "73a86fd3-c6c3-4103-bddf-2e18941c5e74"],
 " instead of the default ",
 Cell[BoxData[
 "\"\<Direct\>\""], "InlineFormula",ExpressionUUID->
  "642e9dee-71cb-4a8f-a599-a016169cbfa5"],
 " will return the metric for the reciprocal space."
}], "ExampleText",
 CellChangeTimes->{{3.762100811702474*^9, 3.762100876745623*^9}},
 CellID->1117506992,ExpressionUUID->"e3adf73b-2a0f-4785-b140-8a684e07a031"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"sampleCrystal", "=", "\"\<Quartz\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"GetCrystalMetric", "[", 
   RowBox[{"sampleCrystal", ",", "\[IndentingNewLine]", 
    RowBox[{"\"\<Space\>\"", "\[Rule]", "\"\<Reciprocal\>\""}]}], "]"}], "//",
   "MatrixForm"}]}], "Input",
 CellChangeTimes->{{3.762099639890271*^9, 3.762099652877242*^9}, 
   3.7621004378137913`*^9, {3.762100582924511*^9, 3.7621005840454206`*^9}, {
   3.762101239997016*^9, 3.762101264050778*^9}},
 CellLabel->"In[1]:=",
 CellID->684072943,ExpressionUUID->"86205769-91c8-4f87-8d71-11b7f3a215e6"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0.05521644376616564`", "0.02760822188308282`", "0.`"},
     {"0.02760822188308282`", "0.05521644376616564`", "0.`"},
     {"0.`", "0.`", "0.03421747174218531`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.762100400215476*^9, 3.762100584361393*^9, 
  3.7621009488624897`*^9, 3.762101361855691*^9, 3.781599899798231*^9},
 CellLabel->"Out[2]//MatrixForm=",
 CellID->1039681172,ExpressionUUID->"6bf8994c-08a1-46de-8cc1-ecfeb2cd3e0a"]
}, Open  ]],

Cell["\<\
The metric matrices for direct- and reciprocal space are inverses of each \
other.\
\>", "ExampleText",
 CellChangeTimes->{{3.762100893044765*^9, 3.762100936058313*^9}},
 CellID->397143845,ExpressionUUID->"7a514a36-fec8-4ffb-a271-08357772ec9b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Inverse", "@", 
   RowBox[{"GetCrystalMetric", "[", 
    RowBox[{"sampleCrystal", ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<Space\>\"", "\[Rule]", "\"\<Direct\>\""}]}], "]"}]}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.762100725056384*^9, 3.762100779485457*^9}, {
  3.762101251564616*^9, 3.762101263202545*^9}},
 CellLabel->"In[3]:=",
 CellID->971090404,ExpressionUUID->"c79ac586-2464-4f58-bd88-5c1a35e266e5"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0.055216443766165656`", "0.027608221883082828`", "0.`"},
     {"0.027608221883082828`", "0.055216443766165656`", "0.`"},
     {"0.`", "0.`", "0.03421747174218531`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.7621007283948727`*^9, 3.762100748343474*^9}, 
   3.762100779895973*^9, 3.7621009489911337`*^9, 3.7621013619559402`*^9, 
   3.781599901877749*^9},
 CellLabel->"Out[3]//MatrixForm=",
 CellID->2038326534,ExpressionUUID->"03e3325d-5e67-4772-b6f0-3d10f5d5a27b"]
}, Open  ]],

Cell[TextData[{
 "This option can be combined with ",
 Cell[BoxData[
 "\"\<ToCartesian\>\""], "InlineFormula",ExpressionUUID->
  "6da8f01c-157f-4107-8d92-4ac56decd6b3"],
 ":"
}], "ExampleText",
 CellChangeTimes->{{3.762101048537137*^9, 3.76210106797606*^9}, {
  3.762101152189108*^9, 3.762101154628498*^9}},
 CellID->210651515,ExpressionUUID->"3458e8bf-f5e3-4eec-8a0a-b14a8fd92e53"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"GetCrystalMetric", "[", 
   RowBox[{"sampleCrystal", ",", "\[IndentingNewLine]", 
    RowBox[{"\"\<Space\>\"", "\[Rule]", "\"\<Reciprocal\>\""}], ",", 
    RowBox[{"\"\<ToCartesian\>\"", "\[Rule]", "True"}]}], "]"}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.7621010979279623`*^9, 3.7621011023719883`*^9}, {
  3.762101255645821*^9, 3.762101259436075*^9}},
 CellLabel->"In[4]:=",
 CellID->190951394,ExpressionUUID->"a41a81ed-40e5-47c1-b5a7-b14a0a589ce2"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0.2349817945419722`", "0.1174908972709861`", "0.`"},
     {"0.`", "0.20350020350020348`", "0.`"},
     {"0.`", "0.`", "0.1849796522382538`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.762101102626691*^9, 3.762101362071199*^9, 
  3.781599903365391*^9},
 CellLabel->"Out[4]//MatrixForm=",
 CellID->991612063,ExpressionUUID->"c4406797-ab84-4f19-b485-ce44b64775e6"]
}, Open  ]],

Cell["\<\
This matrix will convert crystallographic coordinates in reciprocal space to \
Cartesian coordinates in reciprocal space. Another way of obtaining the same \
matrix:\
\>", "ExampleText",
 CellChangeTimes->{{3.762101157622465*^9, 3.762101186699876*^9}, {
  3.76210128749015*^9, 3.762101293649639*^9}, {3.762101371817487*^9, 
  3.762101372176141*^9}},
 CellID->1861541418,ExpressionUUID->"c0a11e17-32e6-48dd-b1da-3c28105a5db1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"M", "=", 
  RowBox[{
  "$TransformationMatrices", "[", "\"\<CrystallographicToCartesian\>\"", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.762101208465687*^9, 3.762101212884858*^9}},
 CellLabel->"In[5]:=",
 CellID->363182047,ExpressionUUID->"d81b046a-2238-48f9-9c2e-2056158b4710"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"a", ",", 
     RowBox[{"b", " ", 
      RowBox[{"Cos", "[", "\[Gamma]", "]"}]}], ",", 
     RowBox[{"c", " ", 
      RowBox[{"Cos", "[", "\[Beta]", "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"b", " ", 
      RowBox[{"Sin", "[", "\[Gamma]", "]"}]}], ",", 
     RowBox[{"c", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Cos", "[", "\[Alpha]", "]"}], "-", 
        RowBox[{
         RowBox[{"Cos", "[", "\[Beta]", "]"}], " ", 
         RowBox[{"Cos", "[", "\[Gamma]", "]"}]}]}], ")"}], " ", 
      RowBox[{"Csc", "[", "\[Gamma]", "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", 
     RowBox[{"c", " ", 
      SqrtBox[
       RowBox[{"1", "-", 
        SuperscriptBox[
         RowBox[{"Cos", "[", "\[Beta]", "]"}], "2"], "-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Cos", "[", "\[Alpha]", "]"}], "-", 
            RowBox[{
             RowBox[{"Cos", "[", "\[Beta]", "]"}], " ", 
             RowBox[{"Cos", "[", "\[Gamma]", "]"}]}]}], ")"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{"Csc", "[", "\[Gamma]", "]"}], "2"]}]}]]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.762101213473186*^9, 3.762101362170704*^9, 
  3.781599906974457*^9},
 CellLabel->"Out[5]=",
 CellID->763637855,ExpressionUUID->"52e15a3d-a525-4ebd-9ebb-2c739e2255e8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"reciprocalCellParameters", "=", 
  RowBox[{"GetLatticeParameters", "[", 
   RowBox[{"\"\<Quartz\>\"", ",", "\[IndentingNewLine]", 
    RowBox[{"\"\<Units\>\"", "\[Rule]", "True"}], ",", 
    RowBox[{"\"\<Space\>\"", "\[Rule]", "\"\<Reciprocal\>\""}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.762101221184311*^9, 3.762101233508669*^9}, {
  3.762101275114216*^9, 3.762101278945817*^9}, {3.781599997350149*^9, 
  3.781599999939468*^9}},
 CellLabel->"In[6]:=",
 CellID->595844594,ExpressionUUID->"934971cd-b5ef-420f-99b6-38376530b167"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{
    "0.2349817945419722`","\"\[CapitalARing]\"",
     "\[ARing]ngstr\[ODoubleDot]ms","\"Angstroms\""},
    "Quantity"], ",", 
   TemplateBox[{
    "0.2349817945419722`","\"\[CapitalARing]\"",
     "\[ARing]ngstr\[ODoubleDot]ms","\"Angstroms\""},
    "Quantity"], ",", 
   TemplateBox[{
    "0.1849796522382538`","\"\[CapitalARing]\"",
     "\[ARing]ngstr\[ODoubleDot]ms","\"Angstroms\""},
    "Quantity"], ",", 
   TemplateBox[{
    "90",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],"degrees",
     "\"AngularDegrees\""},
    "QuantityPostfix"], ",", 
   TemplateBox[{
    "90",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],"degrees",
     "\"AngularDegrees\""},
    "QuantityPostfix"], ",", 
   TemplateBox[{
    "60",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],"degrees",
     "\"AngularDegrees\""},
    "QuantityPostfix"]}], "}"}]], "Output",
 CellChangeTimes->{3.762101279155929*^9, 3.762101362303451*^9, 
  3.781599908245954*^9, 3.7816000057476597`*^9},
 CellLabel->"Out[6]=",
 CellID->1916307105,ExpressionUUID->"ed6720f3-5010-43e1-af94-65ac9e3538de"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"J", "=", 
  RowBox[{"M", "/.", 
   RowBox[{"Thread", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "a", ",", "b", ",", "c", ",", "\[Alpha]", ",", "\[Beta]", ",", 
       "\[Gamma]"}], "}"}], "\[Rule]", "reciprocalCellParameters"}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.762101300837473*^9, 3.7621013296329527`*^9}},
 CellLabel->"In[7]:=",
 CellID->29937761,ExpressionUUID->"5bbfefba-b864-49e1-99ce-8c05d249ee9f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     TemplateBox[{
      "0.2349817945419722`","\"\[CapitalARing]\"",
       "\[ARing]ngstr\[ODoubleDot]ms","\"Angstroms\""},
      "Quantity"], ",", 
     TemplateBox[{
      "0.1174908972709861`","\"\[CapitalARing]\"",
       "\[ARing]ngstr\[ODoubleDot]ms","\"Angstroms\""},
      "Quantity"], ",", 
     TemplateBox[{
      "0.`","\"\[CapitalARing]\"","\[ARing]ngstr\[ODoubleDot]ms",
       "\"Angstroms\""},
      "Quantity"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     TemplateBox[{
      "0.20350020350020348`","\"\[CapitalARing]\"",
       "\[ARing]ngstr\[ODoubleDot]ms","\"Angstroms\""},
      "Quantity"], ",", 
     TemplateBox[{
      "0.`","\"\[CapitalARing]\"","\[ARing]ngstr\[ODoubleDot]ms",
       "\"Angstroms\""},
      "Quantity"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", 
     TemplateBox[{
      "0.1849796522382538`","\"\[CapitalARing]\"",
       "\[ARing]ngstr\[ODoubleDot]ms","\"Angstroms\""},
      "Quantity"]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7621013309712*^9, 3.762101362437194*^9, 
  3.781600014153619*^9},
 CellLabel->"Out[7]=",
 CellID->782031276,ExpressionUUID->"e4649820-b218-4fce-9df0-9d76d9c57896"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"QuantityMagnitude", "@", "J"}], "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.762101342005218*^9, 3.762101350725583*^9}},
 CellLabel->"In[8]:=",
 CellID->1378351356,ExpressionUUID->"f475023c-55f3-4bd6-854e-475897ba2cc5"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0.2349817945419722`", "0.1174908972709861`", "0.`"},
     {"0", "0.20350020350020348`", "0.`"},
     {"0", "0", "0.1849796522382538`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.762101345008264*^9, 3.762101362549623*^9}, 
   3.78160001650677*^9},
 CellLabel->"Out[8]//MatrixForm=",
 CellID->576756030,ExpressionUUID->"42dcef7f-9de9-441c-8741-e2ffbe9d143d"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "XXXX", "ExampleSubsection",ExpressionUUID->
   "ff957853-890d-4602-9750-e389d8147511"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1295379749,ExpressionUUID->"3192836d-2344-406b-8439-5301e79f8f48"]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Applications", "ExampleSection",ExpressionUUID->
   "7bf163d6-383c-430e-ae46-7a777b222b6c"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157,ExpressionUUID->"6f89657c-7d5c-4e46-9400-b3b0cd7359bc"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Properties & Relations", "ExampleSection",ExpressionUUID->
   "1b8301e5-0abb-4320-9165-341e5e0a2373"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759,ExpressionUUID->"5c7f1e4f-42dd-4146-be39-ab1ccc375a17"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Possible Issues", "ExampleSection",ExpressionUUID->
   "e2ebc723-ec64-4291-82e8-76a699dcb1c8"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373,ExpressionUUID->"d7cac22d-c980-4af9-9a2e-f1bdb2442b94"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Interactive Examples", "ExampleSection",ExpressionUUID->
   "ff77465a-8ac4-4f4e-9ca9-5eba06d7419c"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318,ExpressionUUID->"532a5513-3615-4f85-b338-bdc784ef575e"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Neat Examples", "ExampleSection",ExpressionUUID->
   "2d7d8647-78bb-46c4-862e-8fee56bb80b1"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740,ExpressionUUID->"2bd4bf10-7e14-419c-8078-1b9aec72dc0f"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[TextData[{
   StyleBox["Mathematica",
    FontSlant->"Italic"],
   " code"
  }], "ExampleSection",ExpressionUUID->"a61deb60-f853-45ab-9409-fafa24be82e5"],
  $Line = 0; Null]], "ExampleSection",
 CellChangeTimes->{{3.684490685221168*^9, 3.6844906883540173`*^9}},
 CellID->828993714,ExpressionUUID->"bd326234-4e5a-4d6b-be3a-2b7ecfdffcb0"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"GetCrystalMetric", "::", "InvalidInput"}], "=", 
   "\"\<Invalid input.\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"GetCrystalMetric", "::", "InvalidSpace"}], "=", 
    "\"\<\\\"Space\\\" must either be \\\"Direct\\\" or \\\"Reciprocal\\\".\>\
\""}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Options", "@", "GetCrystalMetric"}], "=", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\"\<Space\>\"", "\[Rule]", "\"\<Direct\>\""}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<ToCartesian\>\"", "\[Rule]", "False"}]}], 
     "\[IndentingNewLine]", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SyntaxInformation", "@", "GetCrystalMetric"}], "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"\"\<ArgumentsPattern\>\"", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"_", ",", 
       RowBox[{"OptionsPattern", "[", "]"}]}], "}"}]}], "\[IndentingNewLine]",
     "}"}]}], ";"}]}], "Input",
 InitializationCell->False,
 CellChangeTimes->{
  3.737968467400035*^9, {3.756710992038847*^9, 3.756711001818603*^9}, {
   3.759514376819886*^9, 3.759514390944339*^9}, {3.759514442752858*^9, 
   3.759514459127879*^9}, {3.7620606915941668`*^9, 3.762060716966055*^9}, {
   3.763737124837572*^9, 3.763737131186804*^9}},
 CellLabel->"In[659]:=",
 CellID->1934552275,ExpressionUUID->"be027c44-5308-44ab-8b0e-5cfa2a6f60b5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"GetCrystalMetric", "[", 
   RowBox[{"userInput_", ",", 
    RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"input", "=", "userInput"}], ",", "\[IndentingNewLine]", "a", 
      ",", "b", ",", "c", ",", "\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", 
      ",", "\[IndentingNewLine]", "c1", ",", "c2", ",", "c3", ",", "M", ",", 
      "\[IndentingNewLine]", 
      RowBox[{"space", "=", 
       RowBox[{"OptionValue", "[", "\"\<Space\>\"", "]"}]}], ",", 
      "\[IndentingNewLine]", "MakeMetric", ",", 
      "ExtractParametersFromMatrix"}], "\[IndentingNewLine]", "}"}], ",", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"(*", " ", "Auxiliary", " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"MakeMetric", "[", 
       RowBox[{"{", 
        RowBox[{
        "a_", ",", "b_", ",", "c_", ",", "alpha_", ",", "beta_", ",", 
         "gamma_"}], "}"}], "]"}], ":=", 
      RowBox[{"(", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}], "=", 
         RowBox[{"{", 
          RowBox[{"alpha", ",", "beta", ",", "gamma"}], "}"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"AnyTrue", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}], 
            ",", 
            RowBox[{
             RowBox[{"#", ">", 
              RowBox[{"2", "\[Pi]"}]}], "&"}]}], "]"}], ",", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}], "*=",
            "Degree"}]}], "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"N", "@", 
         RowBox[{"Chop", "[", 
          RowBox[{"{", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              SuperscriptBox["a", "2"], ",", 
              RowBox[{"a", "*", "b", "*", 
               RowBox[{"Cos", "[", "\[Gamma]", "]"}]}], ",", 
              RowBox[{"a", "*", "c", "*", 
               RowBox[{"Cos", "[", "\[Beta]", "]"}]}]}], "}"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"a", "*", "b", "*", 
               RowBox[{"Cos", "[", "\[Gamma]", "]"}]}], ",", 
              SuperscriptBox["b", "2"], ",", 
              RowBox[{"b", "*", "c", "*", 
               RowBox[{"Cos", "[", "\[Alpha]", "]"}]}]}], "}"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"a", "*", "c", "*", 
               RowBox[{"Cos", "[", "\[Beta]", "]"}]}], ",", 
              RowBox[{"b", "*", "c", "*", 
               RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], ",", 
              SuperscriptBox["c", "2"]}], "}"}]}], "}"}], "]"}]}]}], 
       "\[IndentingNewLine]", ")"}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"ExtractParametersFromMatrix", "[", "matrix_", "]"}], ":=", 
      RowBox[{"(", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{"a", ",", "b", ",", "c"}], "}"}], "=", 
         RowBox[{"Sqrt", "@", 
          RowBox[{"Diagonal", "@", "matrix"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"\[Alpha]", "=", 
         RowBox[{
          RowBox[{"ArcCos", "[", 
           RowBox[{
            RowBox[{"matrix", "\[LeftDoubleBracket]", 
             RowBox[{"2", ",", "3"}], "\[RightDoubleBracket]"}], "/", 
            RowBox[{"(", 
             RowBox[{"b", "*", "c"}], ")"}]}], "]"}], "/", "Degree"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"\[Beta]", "=", 
         RowBox[{
          RowBox[{"ArcCos", "[", 
           RowBox[{
            RowBox[{"matrix", "\[LeftDoubleBracket]", 
             RowBox[{"1", ",", "3"}], "\[RightDoubleBracket]"}], "/", 
            RowBox[{"(", 
             RowBox[{"a", "*", "c"}], ")"}]}], "]"}], "/", "Degree"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"\[Gamma]", "=", 
         RowBox[{
          RowBox[{"ArcCos", "[", 
           RowBox[{
            RowBox[{"matrix", "\[LeftDoubleBracket]", 
             RowBox[{"1", ",", "2"}], "\[RightDoubleBracket]"}], "/", 
            RowBox[{"(", 
             RowBox[{"a", "*", "b"}], ")"}]}], "]"}], "/", "Degree"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
         "a", ",", "b", ",", "c", ",", "\[Alpha]", ",", "\[Beta]", ",", 
          "\[Gamma]"}], "}"}]}], "\[IndentingNewLine]", ")"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Input", " ", "check"}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"!", 
        RowBox[{"MemberQ", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"\"\<Direct\>\"", ",", "\"\<Reciprocal\>\""}], "}"}], ",", 
          "space"}], "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Message", "[", 
         RowBox[{"GetCrystalMetric", "::", "InvalidSpace"}], "]"}], ";", 
        RowBox[{"Abort", "[", "]"}]}]}], "\[IndentingNewLine]", "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"If", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"StringQ", "@", "userInput"}], ",", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
         RowBox[{"A", ".", " ", "Crystal"}], " ", "label"}], " ", "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"InputCheck", "[", 
         RowBox[{"\"\<CrystalQ\>\"", ",", "userInput"}], "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "a", ",", "b", ",", "c", ",", "\[Alpha]", ",", "\[Beta]", ",", 
           "\[Gamma]"}], "}"}], "=", 
         RowBox[{"GetLatticeParameters", "[", 
          RowBox[{"userInput", ",", "\[IndentingNewLine]", 
           RowBox[{"\"\<Space\>\"", "\[Rule]", "space"}], ",", 
           RowBox[{"\"\<Units\>\"", "\[Rule]", "False"}]}], "]"}]}]}], ",", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
         RowBox[{"B", ".", " ", "Lattice"}], " ", "parameters", " ", 
         "directly"}], " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"AssociationQ", "@", "input"}], ",", "\[IndentingNewLine]", 
          
          RowBox[{"input", "=", 
           RowBox[{"Lookup", "[", 
            RowBox[{"userInput", ",", 
             RowBox[{"{", 
              RowBox[{
              "\"\<a\>\"", ",", "\"\<b\>\"", ",", "\"\<c\>\"", ",", 
               "\"\<\[Alpha]\>\"", ",", "\"\<\[Beta]\>\"", ",", 
               "\"\<\[Gamma]\>\""}], "}"}]}], "]"}]}]}], "]"}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"If", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"!", 
            RowBox[{"AllTrue", "[", 
             RowBox[{"input", ",", 
              RowBox[{
               RowBox[{
                RowBox[{"QuantityQ", "[", "#", "]"}], "||", 
                RowBox[{"NumericQ", "[", "#", "]"}]}], "&"}]}], "]"}]}], "||",
            "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"Length", "@", 
             RowBox[{"Flatten", "@", "input"}]}], "\[NotEqual]", "6"}]}], ",",
           "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Message", "[", 
            RowBox[{"GetCrystalMetric", "::", "InvalidInput"}], "]"}], ";", 
           RowBox[{"Abort", "[", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]",
         "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "a", ",", "b", ",", "c", ",", "\[Alpha]", ",", "\[Beta]", ",", 
           "\[Gamma]"}], "}"}], "=", 
         RowBox[{"N", "@", "input"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"AllTrue", "[", 
           RowBox[{"input", ",", "QuantityQ"}], "]"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{"a", ",", "b", ",", "c"}], "}"}], "=", 
            RowBox[{"QuantityMagnitude", "@", 
             RowBox[{"UnitConvert", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", 
               "\"\<Angstroms\>\""}], "]"}]}]}], ";", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}], 
            "=", 
            RowBox[{"QuantityMagnitude", "@", 
             RowBox[{"UnitConvert", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}], 
               ",", "\"\<Degrees\>\""}], "]"}]}]}]}]}], "\[IndentingNewLine]",
          "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"Optional", ":", " ", 
          RowBox[{
          "Use", " ", "metric", " ", "for", " ", "reciprocal", " ", 
           "space"}]}], " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"OptionValue", "[", "\"\<Space\>\"", "]"}], "===", 
           "\"\<Reciprocal\>\""}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"M", "=", 
            RowBox[{"MakeMetric", "[", 
             RowBox[{"{", 
              RowBox[{
              "a", ",", "b", ",", "c", ",", "\[Alpha]", ",", "\[Beta]", ",", 
               "\[Gamma]"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
             "a", ",", "b", ",", "c", ",", "\[Alpha]", ",", "\[Beta]", ",", 
              "\[Gamma]"}], "}"}], "=", 
            RowBox[{"ExtractParametersFromMatrix", "@", 
             RowBox[{"Inverse", "@", "M"}]}]}]}]}], "]"}]}]}], 
      "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"AnyTrue", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}], ",", 
         RowBox[{
          RowBox[{"#", ">", 
           RowBox[{"2.", "\[Pi]"}]}], "&"}]}], "]"}], ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}], "*=", 
        "Degree"}]}], "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Metric", " ", "tensor"}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"M", "=", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"TrueQ", "@", 
         RowBox[{"OptionValue", "[", "\"\<ToCartesian\>\"", "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"Optional", ":", " ", 
          RowBox[{
          "Return", " ", "matrix", " ", "that", " ", "converts", " ", "to", 
           " ", "Cartesian", " ", "coordinates"}]}], " ", "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"N", "@", 
         RowBox[{"Chop", "[", 
          RowBox[{
           RowBox[{"{", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"a", ",", 
               RowBox[{"b", "*", 
                RowBox[{"Cos", "[", "\[Gamma]", "]"}]}], ",", "c1"}], "}"}], 
             ",", "\[IndentingNewLine]", 
             RowBox[{"{", 
              RowBox[{"0.", ",", 
               RowBox[{"b", "*", 
                RowBox[{"Sin", "[", "\[Gamma]", "]"}]}], ",", "c2"}], "}"}], 
             ",", "\[IndentingNewLine]", 
             RowBox[{"{", 
              RowBox[{"0.", ",", "0.", ",", "c3"}], "}"}]}], 
            "\[IndentingNewLine]", "}"}], "//.", 
           RowBox[{"{", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"c1", "\[Rule]", 
              RowBox[{"c", "*", 
               RowBox[{"Cos", "[", "\[Beta]", "]"}]}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"c2", "\[Rule]", 
              RowBox[{"c", "*", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"Cos", "[", "\[Alpha]", "]"}], "-", 
                  RowBox[{
                   RowBox[{"Cos", "[", "\[Gamma]", "]"}], "*", 
                   RowBox[{"Cos", "[", "\[Beta]", "]"}]}]}], ")"}], "/", 
                RowBox[{"Sin", "[", "\[Gamma]", "]"}]}]}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"c3", "\[Rule]", 
              RowBox[{"Sqrt", "[", 
               RowBox[{
                SuperscriptBox["c", "2"], "-", 
                SuperscriptBox["c1", "2"], "-", 
                SuperscriptBox["c2", "2"]}], "]"}]}]}], "\[IndentingNewLine]",
             "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"MakeMetric", "[", 
         RowBox[{"{", 
          RowBox[{
          "a", ",", "b", ",", "c", ",", "\[Alpha]", ",", "\[Beta]", ",", 
           "\[Gamma]"}], "}"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "M"}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 InitializationCell->False,
 CellChangeTimes->{{3.682241896337058*^9, 3.6822419009563293`*^9}, {
   3.6822421030731297`*^9, 3.682242104796829*^9}, {3.682242247634622*^9, 
   3.682242293608499*^9}, {3.6822423242774973`*^9, 3.6822424939877663`*^9}, {
   3.682242524871819*^9, 3.682242610095582*^9}, {3.6822426631468697`*^9, 
   3.682242849688897*^9}, {3.682242985123843*^9, 3.682243000592795*^9}, {
   3.682243032221999*^9, 3.682243042906146*^9}, {3.682243121993319*^9, 
   3.682243187533738*^9}, {3.6822433171568623`*^9, 3.682243318068676*^9}, {
   3.6822433533711243`*^9, 3.68224345949043*^9}, {3.682243499999116*^9, 
   3.682243500570818*^9}, {3.682243559642397*^9, 3.682243568303032*^9}, {
   3.682243656585619*^9, 3.682243807041559*^9}, {3.682243892622666*^9, 
   3.682243979341007*^9}, {3.682244011749632*^9, 3.682244092729911*^9}, {
   3.6822441869470167`*^9, 3.682244221175058*^9}, {3.68224427065597*^9, 
   3.682244283409008*^9}, {3.6822443160128517`*^9, 3.682244326447394*^9}, {
   3.682244392020493*^9, 3.682244400571671*^9}, {3.682244596208706*^9, 
   3.682244803339835*^9}, {3.682244951115906*^9, 3.6822449654470167`*^9}, {
   3.682247256239483*^9, 3.682247304444981*^9}, {3.682247343926553*^9, 
   3.682247361035624*^9}, {3.682247395780785*^9, 3.6822474984407682`*^9}, {
   3.6822475305652437`*^9, 3.682247636381772*^9}, {3.6822476807262373`*^9, 
   3.682247690229601*^9}, {3.682247723533629*^9, 3.682247825538166*^9}, {
   3.682247866195016*^9, 3.6822478768890457`*^9}, {3.682247927112714*^9, 
   3.682248080675892*^9}, {3.682248357004342*^9, 3.682248375626561*^9}, {
   3.6822486441315317`*^9, 3.682248669634107*^9}, 3.68224956936229*^9, 
   3.682262332986014*^9, {3.6822623719028997`*^9, 3.68226237223594*^9}, {
   3.682312281830681*^9, 3.6823123030407467`*^9}, {3.682323578349629*^9, 
   3.682323592418137*^9}, {3.6823237158461313`*^9, 3.682323721213748*^9}, 
   3.682327662602072*^9, {3.6824963506791697`*^9, 3.6824963547512217`*^9}, {
   3.682496400113083*^9, 3.682496493228437*^9}, 3.682677149488262*^9, {
   3.685082142306231*^9, 3.6850821530756807`*^9}, 3.685084035768195*^9, {
   3.68655238046353*^9, 3.686552426771611*^9}, {3.6865525950866337`*^9, 
   3.686552685595372*^9}, {3.686635545814003*^9, 3.686635612323032*^9}, {
   3.686645933806924*^9, 3.686646007894505*^9}, {3.686646064248117*^9, 
   3.68664607682882*^9}, {3.686655195368894*^9, 3.6866552343027163`*^9}, {
   3.6866553151103287`*^9, 3.686655409251244*^9}, {3.6866554490764103`*^9, 
   3.686655514039054*^9}, {3.686655580018355*^9, 3.686655635546473*^9}, {
   3.686655748745368*^9, 3.686655776590246*^9}, {3.73796846746421*^9, 
   3.737968467560033*^9}, 3.7595144390987997`*^9, {3.759514625711541*^9, 
   3.7595146264809847`*^9}, {3.7595146838035517`*^9, 3.759514690635151*^9}, {
   3.759514763059952*^9, 3.7595147901447783`*^9}, {3.759514834448648*^9, 
   3.759514916333564*^9}, {3.759515128606327*^9, 3.759515167675393*^9}, {
   3.7595152352855597`*^9, 3.759515258119936*^9}, {3.759515364824544*^9, 
   3.759515368332971*^9}, {3.7595162005877247`*^9, 3.759516208018134*^9}, {
   3.75951629777057*^9, 3.7595163408148623`*^9}, {3.7595163778885307`*^9, 
   3.7595164110130987`*^9}, {3.759516461214458*^9, 3.7595166165525713`*^9}, {
   3.759516755231249*^9, 3.759516812865972*^9}, {3.7595176681151123`*^9, 
   3.7595176683065777`*^9}, {3.759517707451805*^9, 3.7595177778473387`*^9}, {
   3.759517837200191*^9, 3.75951794375373*^9}, {3.759517984477271*^9, 
   3.759517993570887*^9}, {3.759518304886416*^9, 3.759518414857388*^9}, {
   3.7595184616339293`*^9, 3.75951861236721*^9}, {3.759518681333305*^9, 
   3.759518682508336*^9}, {3.759518743028657*^9, 3.7595187431700993`*^9}, {
   3.7595189639997797`*^9, 3.759519026860339*^9}, 3.762793093306291*^9, {
   3.763735307214972*^9, 3.763735323859365*^9}, {3.763735374443718*^9, 
   3.763735515015348*^9}, {3.763735604949443*^9, 3.763735656620427*^9}, {
   3.763735692571999*^9, 3.763735711779261*^9}, {3.76373583003401*^9, 
   3.763735863088757*^9}, 3.7637364222218018`*^9, {3.76373681850941*^9, 
   3.763736835699888*^9}, {3.763736867931713*^9, 3.763737064870956*^9}, {
   3.7637371143362617`*^9, 3.76373714702308*^9}, {3.7637371771275578`*^9, 
   3.763737195476788*^9}, {3.763737226101709*^9, 3.7637372706108017`*^9}, {
   3.763737354299376*^9, 3.7637373599928627`*^9}, {3.76373754326728*^9, 
   3.7637375602360563`*^9}, {3.763737729709491*^9, 3.763737798690954*^9}, {
   3.763737934208025*^9, 3.763737934479949*^9}, {3.763737983415518*^9, 
   3.7637380656281157`*^9}, {3.76373812159638*^9, 3.7637381488767967`*^9}, {
   3.7637381947641573`*^9, 3.763738196392647*^9}, {3.7637383302094927`*^9, 
   3.763738413933064*^9}, {3.7637387092258244`*^9, 3.76373871989156*^9}, {
   3.76373875447615*^9, 3.763738762634541*^9}, {3.763738807163105*^9, 
   3.763738841747683*^9}, {3.763738876556121*^9, 3.763738938990823*^9}, {
   3.76373902141601*^9, 3.763739031429598*^9}, {3.76373909330882*^9, 
   3.7637391444280043`*^9}, {3.763739181115068*^9, 3.763739232679335*^9}, {
   3.763739334310902*^9, 3.763739336179943*^9}, {3.763739446516017*^9, 
   3.763739457094846*^9}, {3.763739517785274*^9, 3.7637395232393923`*^9}, {
   3.7637395810453978`*^9, 3.7637397973451014`*^9}, {3.7637398285757513`*^9, 
   3.76373984386397*^9}, {3.763739900974869*^9, 3.763740029253831*^9}, {
   3.76374006447647*^9, 3.763740081466466*^9}, {3.763740113162266*^9, 
   3.763740113689055*^9}, {3.7637402042162123`*^9, 3.763740251805451*^9}, {
   3.763740406579955*^9, 3.763740411531116*^9}, {3.763740493971175*^9, 
   3.7637404941200867`*^9}, {3.76374056243196*^9, 3.76374057227813*^9}, {
   3.763740762043529*^9, 3.763740763160961*^9}, {3.7637408225134974`*^9, 
   3.763740822983884*^9}, 3.764957586406007*^9, {3.781598023770009*^9, 
   3.781598024960236*^9}, {3.781598282140304*^9, 3.781598343481772*^9}, {
   3.781598419937907*^9, 3.7815984233916683`*^9}, {3.781598455033387*^9, 
   3.781598518549818*^9}, {3.781598559216206*^9, 3.781598583252808*^9}, {
   3.781598613301051*^9, 3.781598694362977*^9}, {3.781598775866355*^9, 
   3.7815988788708687`*^9}, {3.7815993661732063`*^9, 3.781599394124114*^9}, {
   3.78159943845222*^9, 3.781599456218769*^9}, {3.781599577488717*^9, 
   3.781599585759841*^9}, {3.781599670952115*^9, 3.7815997144059677`*^9}, {
   3.786968049877883*^9, 3.786968051123526*^9}},
 Background->RGBColor[0.94, 0.91, 0.88],
 CellLabel->"In[664]:=",
 CellID->1117670345,ExpressionUUID->"c9732538-7141-4a2d-9d47-7ad6a65faf8a"]
}, Closed]]
}, Open  ]]
},
WindowSize->Medium,
WindowMargins->Automatic,
Visible->True,
CellContext->"Global`",
FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \
2018)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "UTF-8"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[21582, 630, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"3a831691-ed61-435a-b923-ff17d176bcb1",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 66895, 1762}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 772, 17, 24, "History",ExpressionUUID->"581e16ed-fdd5-49b1-a042-e9d2818b5abe",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[1355, 41, 123, 1, 29, "CategorizationSection",ExpressionUUID->"b2facc1d-3882-42b9-bb0a-0f0e51b78901",
 CellID->1122911449],
Cell[1481, 44, 134, 2, 30, "Categorization",ExpressionUUID->"d2d5aae3-d76b-4d94-92af-26ef38906776",
 CellID->686433507],
Cell[1618, 48, 177, 3, 30, "Categorization",ExpressionUUID->"d8a9337d-492c-47e1-b11a-5fa0e2ae96ed",
 CellID->605800465],
Cell[1798, 53, 172, 3, 30, "Categorization",ExpressionUUID->"80366995-8d0d-4c13-b261-89cff3cba6f3",
 CellID->468444828],
Cell[1973, 58, 168, 2, 30, "Categorization",ExpressionUUID->"c165ec6b-772e-47a1-864b-d0130e4fc972"]
}, Closed]],
Cell[CellGroupData[{
Cell[2178, 65, 110, 1, 19, "KeywordsSection",ExpressionUUID->"35dd449f-2b57-4593-be9b-9d42c48f44d2",
 CellID->477174294],
Cell[2291, 68, 100, 1, 70, "Keywords",ExpressionUUID->"a4b71b93-e23b-4d39-a047-1f5f0ef67173",
 CellID->1164421360]
}, Closed]],
Cell[CellGroupData[{
Cell[2428, 74, 120, 1, 19, "TemplatesSection",ExpressionUUID->"472a8275-d94b-46f0-8c35-eaf770b96171",
 CellID->1872225408],
Cell[2551, 77, 149, 2, 70, "Template",ExpressionUUID->"a35b26ac-8bc6-460f-8a2d-a5ef8878ab4e",
 CellID->1562036412],
Cell[2703, 81, 137, 2, 70, "Template",ExpressionUUID->"29e0c1da-e900-448b-8dc3-cdeccc955a35",
 CellID->158391909],
Cell[2843, 85, 136, 2, 70, "Template",ExpressionUUID->"b8cb10dc-bd40-4220-806d-d7c13b7ec910",
 CellID->1360575930],
Cell[2982, 89, 137, 2, 70, "Template",ExpressionUUID->"aa9eb5a2-6533-498b-8e8f-64333af406bb",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[3156, 96, 108, 1, 19, "DetailsSection",ExpressionUUID->"76e50715-6947-417b-a69d-beb595e39b2b",
 CellID->307771771],
Cell[3267, 99, 118, 2, 70, "Details",ExpressionUUID->"d8b11316-bb36-4a46-b606-55183aade8f2",
 CellID->670882175],
Cell[3388, 103, 124, 2, 70, "Details",ExpressionUUID->"4f780d00-5b84-4543-b296-b382988f4cda",
 CellID->350963985],
Cell[3515, 107, 119, 2, 70, "Details",ExpressionUUID->"dd892358-bc39-4838-b9f3-b4dbc8c63755",
 CellID->8391405],
Cell[3637, 111, 124, 2, 70, "Details",ExpressionUUID->"565d6dbe-8dcf-4931-bf44-64e22dae6ef4",
 CellID->3610269],
Cell[3764, 115, 116, 2, 70, "Details",ExpressionUUID->"baf57289-ede4-494e-8144-dea16428b947",
 CellID->401364205],
Cell[3883, 119, 116, 2, 70, "Details",ExpressionUUID->"d4ed1ed8-0426-4260-8fce-8e9f05663dd3",
 CellID->350204745],
Cell[4002, 123, 118, 2, 70, "Details",ExpressionUUID->"b70fbad6-a7ba-4c0d-a6d3-9ee96124365a",
 CellID->732958810],
Cell[4123, 127, 133, 2, 70, "Details",ExpressionUUID->"3469def8-148c-4104-be1d-946fab3e34c0",
 CellID->222905350],
Cell[4259, 131, 122, 2, 70, "Details",ExpressionUUID->"0646c7dc-e3bf-40c4-a23a-c50590439b2a",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[4418, 138, 114, 1, 63, "ObjectName",ExpressionUUID->"b85341c8-3faa-4067-bf85-66647f59dfea",
 CellID->1224892054],
Cell[4535, 141, 1761, 45, 116, "Usage",ExpressionUUID->"916e5d38-46b9-4c7f-9c4b-e48ddd029bf7",
 CellID->982511436],
Cell[6299, 188, 228, 4, 25, "Notes",ExpressionUUID->"d9406942-7d3e-405a-a135-b89914ccf098",
 CellID->555452832],
Cell[6530, 194, 232, 4, 25, "Notes",ExpressionUUID->"091c35c0-319f-4c02-8242-bd228efdd74c",
 CellID->1465477490],
Cell[6765, 200, 507, 13, 27, "Notes",ExpressionUUID->"aa9bf270-a1b6-4c50-b08f-b9c0107f29af",
 CellID->1067943069],
Cell[7275, 215, 702, 19, 43, "Notes",ExpressionUUID->"adc0e48c-fc74-4e43-8292-f5024d047169",
 CellID->515085711],
Cell[7980, 236, 178, 2, 25, "Notes",ExpressionUUID->"65b567de-d74b-4ef9-9f55-a0e15983e3d9",
 CellID->2040535678],
Cell[8161, 240, 1063, 21, 77, "3ColumnTableMod",ExpressionUUID->"59db4543-9de8-4b16-a775-5df046162d88",
 CellID->1673214818],
Cell[9227, 263, 936, 27, 42, "Notes",ExpressionUUID->"10132ac7-b1d2-4059-8d94-176b4fcf1324",
 CellID->972487349]
}, Open  ]],
Cell[CellGroupData[{
Cell[10200, 295, 112, 1, 44, "TutorialsSection",ExpressionUUID->"17f50fd4-f601-45d8-83d8-70d8e268d99b",
 CellID->250839057],
Cell[10315, 298, 100, 1, 16, "Tutorials",ExpressionUUID->"d036c046-5fb0-43fe-8912-2d9a2b767c9e",
 CellID->341631938]
}, Open  ]],
Cell[CellGroupData[{
Cell[10452, 304, 138, 1, 31, "RelatedDemonstrationsSection",ExpressionUUID->"2036dd12-4ce5-4e67-9607-9a4c5d679f8a",
 CellID->1268215905],
Cell[10593, 307, 113, 1, 16, "RelatedDemonstrations",ExpressionUUID->"152cb64f-881d-4e17-9780-e9cc13ad6397",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[10743, 313, 120, 1, 31, "RelatedLinksSection",ExpressionUUID->"b678299b-1c7f-4518-b174-1c2d9ecc8d91",
 CellID->1584193535],
Cell[10866, 316, 104, 1, 16, "RelatedLinks",ExpressionUUID->"90fd8073-cd79-43d7-82b7-893cae961735",
 CellID->1038487239]
}, Open  ]],
Cell[CellGroupData[{
Cell[11007, 322, 110, 1, 31, "SeeAlsoSection",ExpressionUUID->"f85569a5-1643-483a-9032-9a2db8916b2f",
 CellID->1255426704],
Cell[11120, 325, 2122, 52, 39, "SeeAlso",ExpressionUUID->"88980665-2bf4-4443-bba3-6dd457dde2fe",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[13279, 382, 112, 1, 31, "MoreAboutSection",ExpressionUUID->"52df7160-9a62-41ff-8c7a-e991ffcbb5fc",
 CellID->38303248],
Cell[13394, 385, 101, 1, 16, "MoreAbout",ExpressionUUID->"f066435d-d87e-4936-9678-ba023eff8eec",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[13532, 391, 411, 11, 70, "PrimaryExamplesSection",ExpressionUUID->"c02569c6-4e9d-4724-a33d-5897d2a15130",
 CellID->880084151],
Cell[CellGroupData[{
Cell[13968, 406, 419, 9, 27, "Input",ExpressionUUID->"d10338d5-5102-4e3d-ac6e-6f943daa02ec",
 CellID->1170448450],
Cell[14390, 417, 633, 16, 25, "Output",ExpressionUUID->"d6ffd951-b00c-473b-a0fc-c8f65afe7029",
 CellID->1965003377]
}, Open  ]],
Cell[CellGroupData[{
Cell[15060, 438, 242, 5, 17, "ExampleDelimiter",ExpressionUUID->"d7a7e2ea-8d33-4cc8-bbcd-5b7d2025c7d2",
 CellID->885551958],
Cell[CellGroupData[{
Cell[15327, 447, 276, 5, 29, "Input",ExpressionUUID->"b10b6ad5-aee5-4070-989d-5b828cb4e546",
 CellID->1244326032],
Cell[15606, 454, 590, 14, 25, "Output",ExpressionUUID->"0d4832f9-674c-4823-9db6-85921b32cdc0",
 CellID->392171730]
}, Open  ]],
Cell[CellGroupData[{
Cell[16233, 473, 373, 6, 29, "Input",ExpressionUUID->"6fb934e2-829f-4481-bc58-8340d98a9794",
 CellID->870930863],
Cell[16609, 481, 616, 15, 25, "Output",ExpressionUUID->"223b70cc-d37f-4d82-9bed-a5d31825b00c",
 CellID->864219528]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[17274, 502, 243, 5, 17, "ExampleDelimiter",ExpressionUUID->"1c5e5dcc-41b9-440e-a43d-e12170407735",
 CellID->1247857534],
Cell[17520, 509, 507, 11, 22, "ExampleText",ExpressionUUID->"c4fa0961-51f9-46ac-9f69-02aedf421386",
 CellID->416277336],
Cell[CellGroupData[{
Cell[18052, 524, 324, 7, 29, "Input",ExpressionUUID->"b6bcca41-76a9-41ec-a267-16cfa38597de",
 CellID->150901970],
Cell[18379, 533, 310, 5, 25, "Output",ExpressionUUID->"2505b831-9d38-4143-aa0f-de4d1ece17c0",
 CellID->1416751428]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[18738, 544, 242, 5, 17, "ExampleDelimiter",ExpressionUUID->"d6d6f23d-bfc3-49ae-9d6c-04579ecd8eef",
 CellID->744659813],
Cell[CellGroupData[{
Cell[19005, 553, 326, 7, 29, "Input",ExpressionUUID->"663c0a2f-5f12-4fa7-a267-32ad07876037",
 CellID->848912672],
Cell[19334, 562, 1339, 35, 36, "Output",ExpressionUUID->"5ea4d804-91fa-4221-ab36-7b94c160048b",
 CellID->940803776]
}, Open  ]],
Cell[CellGroupData[{
Cell[20710, 602, 237, 4, 27, "Input",ExpressionUUID->"25ed3010-82ce-4fb2-b7d0-e086ac7ad874",
 CellID->980092628],
Cell[20950, 608, 571, 15, 25, "Output",ExpressionUUID->"db1de0e4-f83f-46b8-8342-9cd53bd0f37b",
 CellID->615863668]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[21582, 630, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"3a831691-ed61-435a-b923-ff17d176bcb1",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[21740, 634, 242, 5, 33, "ExampleSection",ExpressionUUID->"93292870-62bf-4838-ac37-d0f5e16b116b",
 CellID->1293636265],
Cell[21985, 641, 265, 5, 21, "ExampleSection",ExpressionUUID->"9bc83fa9-74b2-44e8-9d20-ca01cecc80f6",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[22275, 650, 244, 5, 21, "ExampleSection",ExpressionUUID->"228dbd5b-5c00-4b98-a995-f96db5a7abd0",
 CellID->2061341341],
Cell[CellGroupData[{
Cell[22544, 659, 323, 6, 24, "ExampleSubsection",ExpressionUUID->"4551705f-04ad-4dea-a5ba-e552e0f6dfab",
 CellID->1757724783],
Cell[22870, 667, 404, 8, 23, "ExampleText",ExpressionUUID->"a35f794a-8ecc-41cb-8c7d-eb6481c86e22",
 CellID->1212218397],
Cell[CellGroupData[{
Cell[23299, 679, 308, 7, 29, "Input",ExpressionUUID->"07fcea30-3143-480d-ace0-3d0e665aaba7",
 CellID->225622215],
Cell[23610, 688, 1563, 43, 64, "Output",ExpressionUUID->"73fe327a-8b7e-4bf4-83d0-c72e30c7a159",
 CellID->1362177167]
}, Open  ]],
Cell[25188, 734, 212, 2, 22, "ExampleText",ExpressionUUID->"03fef0d3-31aa-4734-a428-00bdb7662b24",
 CellID->49935553],
Cell[CellGroupData[{
Cell[25425, 740, 370, 7, 29, "Input",ExpressionUUID->"00970cc8-2d84-41ef-af5a-d3246f392027",
 CellID->1420722785],
Cell[25798, 749, 442, 9, 25, "Output",ExpressionUUID->"46013d99-8b95-43bc-b7a6-2ff85d4a6fea",
 CellID->338771092]
}, Open  ]],
Cell[CellGroupData[{
Cell[26277, 763, 603, 16, 27, "Input",ExpressionUUID->"ff76df44-1c0a-4959-8cc3-fddb479bf702",
 CellID->75099975],
Cell[26883, 781, 716, 16, 25, "Output",ExpressionUUID->"fb4b4c59-6825-41c5-91e0-5e67d7b43960",
 CellID->259895436]
}, Open  ]],
Cell[CellGroupData[{
Cell[27636, 802, 219, 4, 27, "Input",ExpressionUUID->"e947885d-6d62-4abe-86f3-5b64efe82f52",
 CellID->2115465306],
Cell[27858, 808, 576, 14, 25, "Output",ExpressionUUID->"d473237b-c194-4923-a7e6-991295ba1aab",
 CellID->1408316850]
}, Open  ]],
Cell[28449, 825, 462, 11, 25, "ExampleText",ExpressionUUID->"6483dc9d-da59-4e4d-b6cb-6ef79b6fb509",
 CellID->1212960014],
Cell[CellGroupData[{
Cell[28936, 840, 372, 7, 29, "Input",ExpressionUUID->"7d4da496-af98-4b50-b070-94fe949c3475",
 CellID->2009134404],
Cell[29311, 849, 631, 14, 25, "Output",ExpressionUUID->"0cdcc098-6850-4588-8776-22a91cddfee0",
 CellID->422934621]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[29991, 869, 319, 6, 24, "ExampleSubsection",ExpressionUUID->"594bd177-3c84-4b92-981d-845e98c8a1df",
 CellID->409179315],
Cell[30313, 877, 512, 12, 39, "ExampleText",ExpressionUUID->"e3adf73b-2a0f-4785-b140-8a684e07a031",
 CellID->1117506992],
Cell[CellGroupData[{
Cell[30850, 893, 612, 13, 69, "Input",ExpressionUUID->"86205769-91c8-4f87-8d71-11b7f3a215e6",
 CellID->684072943],
Cell[31465, 908, 966, 22, 58, "Output",ExpressionUUID->"6bf8994c-08a1-46de-8cc1-ecfeb2cd3e0a",
 CellID->1039681172]
}, Open  ]],
Cell[32446, 933, 254, 5, 22, "ExampleText",ExpressionUUID->"7a514a36-fec8-4ffb-a271-08357772ec9b",
 CellID->397143845],
Cell[CellGroupData[{
Cell[32725, 942, 465, 10, 50, "Input",ExpressionUUID->"c79ac586-2464-4f58-bd88-5c1a35e266e5",
 CellID->971090404],
Cell[33193, 954, 1003, 23, 58, "Output",ExpressionUUID->"03e3325d-5e67-4772-b6f0-3d10f5d5a27b",
 CellID->2038326534]
}, Open  ]],
Cell[34211, 980, 382, 9, 23, "ExampleText",ExpressionUUID->"3458e8bf-f5e3-4eec-8a0a-b14a8fd92e53",
 CellID->210651515],
Cell[CellGroupData[{
Cell[34618, 993, 503, 10, 50, "Input",ExpressionUUID->"a41a81ed-40e5-47c1-b5a7-b14a0a589ce2",
 CellID->190951394],
Cell[35124, 1005, 899, 22, 58, "Output",ExpressionUUID->"c4406797-ab84-4f19-b485-ce44b64775e6",
 CellID->991612063]
}, Open  ]],
Cell[36038, 1030, 435, 8, 37, "ExampleText",ExpressionUUID->"c0a11e17-32e6-48dd-b1da-3c28105a5db1",
 CellID->1861541418],
Cell[CellGroupData[{
Cell[36498, 1042, 304, 7, 29, "Input",ExpressionUUID->"d81b046a-2238-48f9-9c2e-2056158b4710",
 CellID->363182047],
Cell[36805, 1051, 1468, 42, 64, "Output",ExpressionUUID->"52e15a3d-a525-4ebd-9ebb-2c739e2255e8",
 CellID->763637855]
}, Open  ]],
Cell[CellGroupData[{
Cell[38310, 1098, 561, 11, 50, "Input",ExpressionUUID->"934971cd-b5ef-420f-99b6-38376530b167",
 CellID->595844594],
Cell[38874, 1111, 1120, 30, 35, "Output",ExpressionUUID->"ed6720f3-5010-43e1-af94-65ac9e3538de",
 CellID->1916307105]
}, Open  ]],
Cell[CellGroupData[{
Cell[40031, 1146, 459, 12, 29, "Input",ExpressionUUID->"5bbfefba-b864-49e1-99ce-8c05d249ee9f",
 CellID->29937761],
Cell[40493, 1160, 1260, 36, 35, "Output",ExpressionUUID->"e4649820-b218-4fce-9df0-9d76d9c57896",
 CellID->782031276]
}, Open  ]],
Cell[CellGroupData[{
Cell[41790, 1201, 263, 5, 27, "Input",ExpressionUUID->"f475023c-55f3-4bd6-854e-475897ba2cc5",
 CellID->1378351356],
Cell[42056, 1208, 895, 22, 58, "Output",ExpressionUUID->"42dcef7f-9de9-441c-8741-e2ffbe9d143d",
 CellID->576756030]
}, Open  ]]
}, Open  ]],
Cell[42978, 1234, 247, 5, 24, "ExampleSubsection",ExpressionUUID->"3192836d-2344-406b-8439-5301e79f8f48",
 CellID->1295379749]
}, Open  ]],
Cell[43240, 1242, 248, 5, 33, "ExampleSection",ExpressionUUID->"6f89657c-7d5c-4e46-9400-b3b0cd7359bc",
 CellID->258228157],
Cell[43491, 1249, 259, 5, 21, "ExampleSection",ExpressionUUID->"5c7f1e4f-42dd-4146-be39-ab1ccc375a17",
 CellID->2123667759],
Cell[43753, 1256, 252, 5, 21, "ExampleSection",ExpressionUUID->"d7cac22d-c980-4af9-9a2e-f1bdb2442b94",
 CellID->1305812373],
Cell[44008, 1263, 257, 5, 21, "ExampleSection",ExpressionUUID->"532a5513-3615-4f85-b338-bdc784ef575e",
 CellID->1653164318],
Cell[44268, 1270, 249, 5, 21, "ExampleSection",ExpressionUUID->"2bd4bf10-7e14-419c-8078-1b9aec72dc0f",
 CellID->589267740],
Cell[CellGroupData[{
Cell[44542, 1279, 374, 8, 21, "ExampleSection",ExpressionUUID->"bd326234-4e5a-4d6b-be3a-2b7ecfdffcb0",
 CellID->828993714],
Cell[44919, 1289, 1546, 38, 246, "Input",ExpressionUUID->"be027c44-5308-44ab-8b0e-5cfa2a6f60b5",
 InitializationCell->False,
 CellID->1934552275],
Cell[46468, 1329, 20001, 415, 1661, "Input",ExpressionUUID->"c9732538-7141-4a2d-9d47-7ad6a65faf8a",
 InitializationCell->False,
 CellID->1117670345]
}, Closed]]
}, Open  ]]
}
]
*)

